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MUSIC PROGRAMS 
BY JOEY LATIMER 

The last time I saw Ken- 
ny Lee Lewis and Gary Mal- 
laber was at a 24-track re- 
cording studio. I was called 
in to engineer the over- 
dubs of a record they were 
producing. The first thing 
I knew. Kenny and Gary 
had me hooking up almost 
every computerized -effects 
unit in the place! It became clear to me then that these 
veteran musicians were also members of the computer 
generation. 

When k-power Editor Anne Krueger came to me recent- 
ly and asked if I knew any pop songwriters who might 
write a song for k-power, I thought of these guys. They 
swiftly went into action and composed our Microtones 
feature this month, called The Curly Calypso. Says co- 
writer Kenny: "We just did it and it came out sounding 
like a combination calypso band . . . along with Curly of 
the Three StoogesV 

HACKER NOTES: The Curly Calypso was composed by 
Kenny and Gary using a synthesizer sequencer. Techni- 
cal Editor John Jainschigg translated the song into Atari 
note tables by looking at a lead sheet provided by Kenny 
and Gary (a lead sheet shows a musical staff with notes 
on it), and by listening to a tape of the original se- 
quenced version . Arrays, or strings, were added to store 
the notes, and note drivers to play them. The result is 
a very interesting song in 6/4 time. Would Curly like it? 
"Nuk, nuk, nuk. Why, certainly!" 



ATARI/ THE CURL/ CALYPSO 



10 DIM A$(122),B$(144),C$(288),D$(416),E$(86) 

20 POKE 752,1 :PRINT CHR$(125);"TUNING UP ... PLEASE WA 

IT." 

30 FOR 1=203 TO 209:POKE I,0:NEXT I 

40 SOUND 0,0,10,10: SOUND 1 ,0,10,10: SOUND 2,0,10,10 

50 FOR 1=1536 TO 1622:READ AiPOKE I,A:NEXT I:A=USR(153 

6) 



60 FOR 1=1 TO 122:READ A: A$(LEN(A$)+1 )=CHR$(A) : NEX' '. 
70 FOR 1=1 TO 144:READ A:B$(LEN(B$)+1 )=CHR$(A) : NEX~ I 
80 FOR 1=1 TO 22 : READ A: E$(LEN(E$)+1 )=CHR$(A) : NEXT IE 
$(23)=E$(3,22) 

90 E$(43)=CHR$(0):E$(44)=CHR$(48) 
100 E$(45)=E$(3,22):E$(65)=E$(3,22) 
110 E$(85)=CHR$(0):E$(86)=CHR$(104) 

120 FOR 1=1 TO 12 : READ A,B:C$(LEN(C$)+1 )=A$(A,B) : N£: I 
I 

130 FOR 1=1 TO 12 : READ A,B:D$(LEN(D$)+1 )=B$(A,B) :N£: - 
I 

140 PRINT CHR$(125):POSITION 11,10,-PRINT "-THE CUR.* I 
ALYPS0-" 

150 POSITION 13,11 :PRINT "BY KENNY LEWIS" : POSITION 12, 

12-PRINT "AND GARY MALLABER" 

1 60 P1 =-1 : P2=-1 : P3=-1 : T1 =0: T2=0 : T3=0 

170 IF T1=0 THEN P1=P1+2:P0KE 203,ASC (C$(P1 )) :T1=ASC 

$(P1+1))*5 

180 IF T2=0 THEN P2=P2+2:P0KE 204,ASC (D$(P2) ) :T2=A3 - 
$(P2+1))*5 

190 IF T3=0 THEN P3=P3+2:P0KE 205, ASC (E$(P3) ) : T3=A: 
$(P3+1))*5 

200 T1=T1-1:T2=T2-1:T3=T3-1 
210 IF P1=287 AND T1=0 THEN 160 
220 GOTO 170 

999 REM —MACHINE LANGUAGE FOR VIBRATO EFFECT— 

1000 DATA 104,162,6,160,11,169,6,32,92,228 
1010 DATA 96,216,198,208,16,10,169,3,133,208 
1020 DATA 165,207,73,255,133,207,160,6,162,3 
1030 DATA 181,203,208,7,189,87,6,240,40,208 
1040 DATA 14,157,87,6,72,169,0,149,203,169 
1050 DATA 175,157,91,6,104,24,101,207,153,0 
1060 DATA 210,222,91,6,189,91,6,153,1,210 
1070 DATA 201,160,208,5,169,0,157,87,6,136 
1080 DATA 136,202,16,202,76,95,228 

1999 REM —NOTES, DURATION, AND PHRASING DATA— 

2000 DATA 60,2,57,1,53,3,50,1,47,3 
2010 DATA 45,2,47,2,50,1,53,3,57,1 
2020 DATA 60,1,0,8,0,2,37,1,42,1 
2030 DATA 47,2,50,2,53,2,50,2,53,2 
2040 DATA 50,1,42,1,0,8,0,1,76,1 
2050 DATA 72,1,64,1,57,1,53,2,47,2 
2060 DATA 53,2,57,1,64,2,57,1,64,1 
2070 DATA 0,8,0,1,68,1,64,1,57,1 
2080 DATA 50,1,47,2,42,2,47,2,50,1 
2090 DATA 57,2,50,1,57,1,0,8,68,2 
2100 DATA 64,1,60,3,57,1,53,3,50,2 
2110 DATA 53,2,57,1,60,3,64,1,68,1 
2120 DATA 0,8 

3000 DATA 173,2,162,1,153,3,144,1,136 
3010 DATA 3,173,1,85,1,136,2,144,1,153 
3020 DATA 3,162,1,173,1,0,1,173,1,85 
3030 DATA 1,173,1,85,1,173,1,173,1,173 
3040 DATA 1,128,2,64,1,128,1,50,2,128 
3050 DATA 1,42,3,50,1,64,1,173,2,68 
3060 DATA 1,173,1,57,2,173,1,42,3,57 
3070 DATA 1,68,1,144,2,72,1,144,1,57 
3080 DATA 2,144,1,47,3,57,1,72,1,195 
3090 DATA 2,76,1,195,1,64,2,195,1,47 
3100 DATA 3,64,1,76,1,195,2,182,1,173 
3110 DATA 3,162,1,153,3,195,1,96,1,153 
3120 DATA 2,162,1,173,3,182,1,195,1,0 
3130 DATA 1,195,1,96,1,195,1,96,1,193 
3140 DATA 1,193,1,193,1 

4000 DATA 0,56,0,2,50,1,57,1,50,2,0,4,64,2 
4010 DATA 68,2,57,1,43,1,0,8 
5000 DATA 1,24,1,24,25,46,25,46,47,72,47 
5010 DATA 72,25,46,25,46,47,72,73,98,99 
5020 DATA 122,99,122 

6000 DATA 1,40,1,40,41,72,41,72,73,104 
6010 DATA 73,104,41,72,41,72,73,104,41,72 
6020 DATA 105,144,105,144 
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COMMODORE MITHE CURLY CALYPSO 



10 DIM A(183),B(216),C(435),D(627),E(135) 

20 PRINT CHR$(147);"TUNING UP ... PLEASE WAIT." 

30 S=54272 : W1=S+4 :W2=S+1 1 :W3=S+1 8 

40 FOR I=S TO S+24:P0KE I / 0:NEXT I 

50 POKE S+5,31:POKE S+6,133:POKE S+12,31:P0KE S+13,133 
60 POKE S+19,31:P0KE S+20 / 133:POKE S+24,15 
70 FOR 1=1 TO 183:READ A(I):NEXT I 
80 FOR 1=1 TO 216:READ B(I):NEXT I 

90 FOR 1=1 TO 33: READ E(I):NEXT I:FOR P=4 TO 33:E(P+30 
)=E(P):NEXT P 

100 E(64)=0:E(65)=0:E(66)=48:FOR P=4 TO 33: E(P+63)=E(P 
):NEXT P 

110 FOR P=4 TO 33:E(P+93)=E(P):NEXT P: E(127)=0: E(128)= 
0:E(129)=104 

120 X=1:FOR 1=1 TO 12.-READ A,B: FOR P=A TO B:C(X)=A(P): 
X=X+1:NEXT P,I 

130 X=1:FOR 1=1 TO 12 : READ A,B: FOR P=A TO B:D(X)=B(P): 
X=X+1:NEXT P,I 

140 POKE 53281,0:PRINT CHR$(147) 

150 POKE 214,10:PRINT:POKE 211,10:PRINT "-THE CURLY CA 
LYPSO-" 

160 PRINT:PRINT TAB(4);"BY KENNY LEWIS AND GARY MALLAB 
ER" 

1 70 P1 =-2 : P2=-2 : P3=-2 : T1 =0 : T2=0 : T3=0 



180 IF T1=0 THEN P1=P1+3:P0KE W1,33:P0KE S+1 ,C (P1 > :POK 
E S+0 / C(Pl+1):T1=C(P1+2) 

190 IF T2=0 THEN P2=P2+3:P0KE W2,33:P0KE S+8,D <P2) :P0K 
E S+7,D(P2+1):T2=D(P2+2) 

200 IF T3=0 THEN P3=P3+3:P0KE W3,33:POKE S+15,E(P3) :PO 
KE S+14,E(P3+1):T3=E(P3+2) 

210 T1=T1-1:T2=T2-1:T3=T3-1:POKE W1 / 32:P0KE W2,32:POKE 
W3,32 

220 FOR T=1 TO 35: NEXT T 

230 IF P1=430 AND T1=0 THEN 170 

240 GOTO 180 

1000 DATA 33,135,2,35,134,1,37,162,3,39,223,1,42,62,3 
1010 DATA 44,193,2,42,62,2,39,223,1,37,162,3,35,134,1 
1020 DATA 33,135,1,0,0,8,0,0,2,53,57,1,47,107,1,42,62 
1030 DATA 2,39,223,2,37,162,2,39,223,2,37,162,2,39,223 
1040 DATA 1,47,107,1,0,0,8,0,0,1,26,156,1,28,49,1,31 
1050 DATA 165,1,35,134,1,37,162,2,42,62,2,37,162,2,35 
1060 DATA 134,1,31,165,2,35,134,1,31,165,1,0,0,8,0,0 
1070 DATA 1,29,223,1,31,165,1,35,134,1,39,223,1,42,62 
1080 DATA 2,27,107,2,42,62,2,39,223,1,35,134,2,39,223 
1090 DATA 1,35,134,1,0,0,8,29,223,2,31,165,1,33,135,3 
1100 DATA 35,134,1,37,12,3,39,23,2,37,162,2,35,134,1 
1110 DATA 33,135,3,31,165,1,29,223,1,0,0,8 
2000 DATA 11,218,2,12,143,1,13,78,3,14,24,1,14,239,3 
2010 DATA 11,218,1,23,181,1,14,239,2,14,24,1,13,78,3 
2020 DATA 12,143,1,11,218,1,0,0,1,11,218,1,23,181,1,11 
2030 DATA 218,1,23,181,1,11,218,1,11,218,1,11,218,1 
2040 DATA 15,210,2,31,165,1,15,210,1,39,223,2,15,210 
2050 DATA 1,47,107,3,39,223,1,31,165,1,11,218,2,29 
2060 DATA 223,1,11,218,1,35,134,2,11,218,1,47,107,3 
2070 DATA 35,134,1,29,223,1,14,24,2,28,49,1,14,24,1 



MICRONOTES 



This month's Microtones programs are based on a 
song written exclusively for k-power by Steve Miller Band 
members Kenny Lee Lewis and Gary Mallaber? The song, 
"The Curly Calypso, was created "on a keypad system that 
comprises a Roland MSQ-700 Digital Sequencer, two 
Yamaha DX-7 synthesizers, and one Oberheim Expander 
Module," explains Kenny, who's played guitar or bass 
with stars Eddie Money, Billy Preston, and Melissa 
Manchester. 

Their association with k-power isn't Kenny and Gary's 
first step into the computer world. Band leader Steve 
Miller introduced them to computers. Steve uses an 
Apple Lisa 2 for entering lyrics, planning tours, and 
doing record budgeting; and a Compaq computer on 
stage. "We use [the Compaq) on tour (to keep track of] 
stage positions, harmony parts, lights, instrument 
arrangements, sequence of songs," Kenny says. "It's an 
itinerary that's typed on stage as we rehearse it, like 
writing a script." 




Steve Miller Band members Kenny Lee Lewis and Gary Mallaber 
took time out from rock n' rollin' to write "The Curly Calypso" for 

K- POWER. 



Computers played a large role in the production of the 
latest Steve Miller album, Italian Xrays. Kenny explains, 
"Almost all of the overdubs, voices, guitar leads, etc. 
were done on a Synclavier 2 computer-controlled 
sampling FM synthesizer." 

Gary (the Steve Miller Band drummer who also has 
recorded or toured with Van Morrison, Peter Frampton, 
Jackson Browne, Barbra Streisand, Pablo Cruise, and Joe 
Walsh) recently joined Kenny to form a new band, Robby 
YuBop. along with another Steve Miller regular, John 
Massaro. They expect to release their first album and 
some videos this fall, and think a computer would be 
useful in their studio. 

"We're torn between the artistic applications of the 
Macintosh and the business uses of an IBM PC," Kenny 
saj's. "We could use the Macintosh (with MousePaint) for 
storing fragments of lyrics; we could form poems with 
pieces of lyrical phrases. A musical interface with the 
keyboard [would] allow us to store melodic phrases. 

"I want to be able to listen to a melody, stop after three 
notes, and edit them with part of a different melody. 
Kenny says. "We could sit back, drinking lemonade, and 
have the computer play back phrases in chain sequence. 
And then, when [it sounds] right, you came up with the 
melody. If it's wrong, it's the computer's fault." 

Gary adds he'd like to use the computer for word 
processing, but laments that it "won't write the songs for 
us!" 

Gary and Kenny must have computers on the brain — 
the subject even comes up in one of the first Robby 
YuBop songs. " The Bis Beat' is about video games that 
write their own music as the score goes higher," Kenny 
says. "The lyrics go, 'With all this knowledge, I should go 
to college, and whip the microchip, until eternity.' " 

— LINDA WILLIAMS 
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2080 DATA 35,134,2,14,24,1,42,62,3,35,134,1,28,49,1 

2090 DATA 10,143,2,26,156,1,10,143,1,31,165,2,10 

2100 DATA 143,1,42,62,3,31,165,1,26,156,1,10,143,2 

2110 DATA 11,48,1,11,218,3,12,143,1,13,78,3,10,143 

2120 DATA 1,21,31,1,13,78,2,12,143,1,11,218, 3,11 

2130 DATA 48,1,10,143,1,0,0,1,10,143,1,21,31,1,10 

2140 DATA 143,1,21,31,1,10,143,1,10,143,1,10,143,1 

3000 DATA 0,0,56,0,0,2,39,223,1,35,134,1 

3010 DATA 39,223,2,0,0,4,31,165,2,29,223,2 

3020 DATA 35,134,1,23,181,1,0,0,8 

4000 DATA 1,36,1,36,37,69,37,69,70,108,70,108 

4010 DATA 37,69,37,69,70,108,109,147,148,183,148,183 

5000 DATA 1,60,1,60,61,108,61,108,109,156,109,156 

5010 DATA 61,108,61,108,109,156,61,108,157,216,157,216 



it 



VIC-20/Wf CURLY CALYPSO 



10 DIM A%(122),BX(144),C%(288),D%(416):P0KE 36878,8 
20 PRINT CHR$(147);"TUNING UP . • :PRINT:PRINT TAB(10) 
•"PLEASE WAIT." 

30 FOR 1=1 TO*122:READ AX(I):NEXT I 
40 FOR 1=1 TO 144: READ BX(I):NEXT I 

50 X=1:FOR 1=1 TO 12 : READ A,B: FOR P=A TO B:«(X)=AX(P) 
:X=X+1:NEXT P,I 

60 X=1:FOR 1=1 TO 12:READ A,B: FOR P=A TO B:DX(X)=B%(P) 
:X=X+1:NEXT P,I 

70 PRINT CHR$(147):P0KE 214,7:PRINT:PRINT M -THE CURLY 

CALYPSO-" 
80 PRINT.-PRINT " BY KENNY LEWIS" 
90 PRINT " AND GARY MALLABER" 
100 A=-1:B=-1:C=0:D=0 



110 IF C=0 THEN A=A+2:P0KE 36876, C% ( A)-200* (C% ( A) <>0) : 
C=C%(A+1) 

120 IF D=0 THEN B=B+2:POKE 36875, DX(B)-200*(DX(B)<>0) • 
D=DX(B+1) 

130 C=C-1:D=D-1:IF A=287 AND C=0 THEN 100 
140 FOR T=1 TO 65:NEXT T:GOTO 110 
1000 DATA 24,2,25,1,27,3,28,1,30,3,31,2,30,2,28,1 
1010 DATA 27,3,25,1,24,1,0,8,0,2,35,1,33,1,30,2 
1020 DATA 29,2,28,2,29,2,28,2,29,1,33,1,0,8,0,1 
1030 DATA 16,1,17,1,21,1,25,1,27,2,30,2,27,2,25 
1040 DATA 1,21,2,25,1,21,1,0,8,0,1,19,1,21,1,25 
1050 DATA 1,28,1,30,2,33,2,30,2,28,1,25,2,28,1 
1060 DATA 25,1,0,8,21,2,23,1,25,3,27,1,28,3,29 
1070 DATA 2,28,2,27,1,25,3,23,1,21,1,0,8 
2000 DATA 33,2,34,1,35,3,36,1,37,3,10,1,33,1,37 
2010 DATA 2,36,1,35,3,34,1,33,1,0,1,10,1,33,1 
2020 DATA 10,1,33,1,10,1,10,1,10,1,22,2,38,1,22,1,42 
2030 DATA 2,22,1,44,3,42,1,38,1,10,2,37,1,10,1,40 
2040 DATA 2,10,1,44,3,40,1,37,1,17,2,36,1,17,1 
2050 DATA 40,2,17,1,36,3,40,1,36,1,5,2,35,1,5,1 
2060 DATA 38,2,5,1,35,3,38,1,35,1,30,2,31,1,33 
2070 DATA 3,34,1,35,3,5,1,30,1,35,2,34,1,33,3,32,1 
2080 DATA 31,1,0,1,5,1,30,1,5,1,30,1,5,1,5,1,5,1 
3000 DATA 1,24,1,24,25,46,25,46,47,72,47,72 
3010 DATA 25,46,25,46,47,72,73,98,99,122,99,122 
4000 DATA 1,40,1,40,41,72,41,72,73,104,73,104 
4010 DATA 41,72,41,72,73,104,41,72,105,144,105,144 



THE RENAME THE SPECIAL Ks CONTEST 



No, we weren't kidding (page 
58). We really don't like being called 
the "Special Ks." We never have, we 
never will, and we're finally doing 
something about it! We need a new 
name, we need it now, and we need 
your help. (Authors of the best three 
names will win $25!) We would 
think of a new name ourselves, but 
you know what happened last time! 
The name shouldn't be too boring 
(like "k-power Assistants"), too obvi- 
ous (like the "k-kids") or too Jlakey 
like the special Ks (pun intended, but 
regretted!). So just cut out the little 
questionnaire here, fill it out, and 
mail it to k-power, 730 Broadway, 
New York, NY 10003 before July 26. 
PLEASE! 



Sincerely, 

???????????????????????? 
(David, Damon, and Alex) 




I think the special Ks should be renamed: 



because. 

Name 

Address. 
City 



Age. 



State_ 



Telephone ( 



Zip_ 



)- 



Sex. 



Computers(s) I use_ 
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